home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / misc / Oma1.16.lha / Oma1.16 / Tools / ROT13 < prev    next >
Text File  |  1998-10-15  |  656b  |  28 lines
  1. /* $VER: ROT13 1.0 (14 Oct 1998)
  2. */
  3.  
  4. IF EXISTS("LIBS:rexxreqtools.library") ~= 1 THEN DO
  5.  SAY "Kann die <rexxreqtools.library> nicht öffnen!"
  6.  EXIT(10)
  7. END
  8.  
  9. ADDLIB("rexxreqtools.library",10,-30,0)
  10.  
  11. file = RTFILEREQUEST('ram:', , "File aussuchen",,,'rt_reqpos=reqpos_centerscr')
  12. IF LENGTH(file) = 0 THEN EXIT
  13.  
  14. OPEN(DATEI,file,READ)
  15. OPEN(ROT,"RAM:ROT13.txt",WRITE)
  16.  
  17. DO UNTIL EOF(DATEI)=1
  18.  zeile=READLN(DATEI)
  19.  zeilerot = TRANSLATE(zeile,"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz","NOPQRSTUVWXYZABCDEFGHIJKLMnopqrstuvwxyzabcdefghijklm")
  20.  WRITELN(ROT,zeilerot)
  21. END
  22.  
  23. CLOSE(DATEI)
  24. CLOSE(ROT)
  25.  
  26. ADDRESS COMMAND "SYS:Utilities/MultiView RAM:ROT13.txt"
  27.  
  28.